MODAL DIALOG BOX 


Create First screen as modal dialog box and implementing the CANCEL 
functionality 


REPORT ZDEMO CUSTOMER VALIDATION. 


tables : knal, "General! Data 
knkk, " Credit Data 
knbk. "Bank Data 


data it knbk type table of knbk. 

CONTROLS : tsc type tabstrip, tc1 type tableview using screen 90 
05. 

call screen 9001 starting at 50 5." ending at 100 400. 


MODULE USER COMMAND 9001 INPUT. 
data v kunnr type kunnr. 


CASE sy-ucomm. 
WHEN 'CRT'. 
CALL SCREEN 9002. 
WHEN 'BACK'. 
LEAVE TO SCREEN 0. 
ENDCASE. 
ENDMODULE. 
MODULE STATUS 9001 OUTPUT. 
SET PF-STATUS 'ZSTATUS'. 
* SET TITLEBAR 'xxx'. 


ENDMODULE. 


MODULE USER COMMAND 9002 INPUT. 


CASE SY-UCOMM. 
WHEN 'SAVE'. 


INSERT KNA1 FROM KNA1. 
COMMIT WORK. 
IFSY-SUBRC = 0. 


IF KNKK IS NOT INITIAL. 
KNKK-KUNNR = KNA1-KUNNR. 
INSERT KNKK FROM KNKK. 


IF it KNBK IS NOT INITIAL. 
INSERT KNBK FROM TABLE IT KNBK ACCEPTING DUPLICAT 
E KEYS. 
COMMIT WORK. 
ENDIF. 
ENDIF. 
MESSAGE 'Successfully Created' TYPE 'S'. 
ENDIF. 
WHEN 'BACK'. 
LEAVE TO SCREEN 0. 
WHEN 'TABI'. 
TSC-ACTIVETAB = 'ТАВ1'. 


WHEN 'TAB2'. 
TSC-ACTIVETAB = 'TAB2'. 


WHEN 'TAB3'. 
TSC-ACTIVETAB = 'TAB3'. 


ENDCASE. 
ENDMODULE. 


MODULE SET DEFAULT VALUES 9004 OUTPUT. 
KNKK-KUNNR = KNA1-KUNNR. 
ENDMODULE. 


MODULE REFRESH_ITABS 9005 INPUT. 
REFRESH IT_KNBK. 
ENDMODULE. 


MODULE MOVE TC TO ITAB 2005 INPUT. 


KNBK-KUNNR = KNA1-KUNNR. 
APPEND KNBK TO IT_KNBK. 
CLEAR KNBK. 

ENDMODULE. 


MODULE set list 9001 OUTPUT. 
types : begin of VRM VALUE, 
key(40) type c, 
text(80) type c, 
end of VRM VALUE. 


data : itab type table of МАМ VALUE , 
wa type VRM VALUE. 


clear wa. 

wa-key - 'IN'. 
wa-text — 'INDIA'. 
append wa to itab. 


clear wa. 

wa-key = ‘JP’. 
wa-text = 'JAPAN'. 
append wa to itab. 


clear wa. 

wa-key = 'DE'. 
wa-text = 'GERMAN'. 
append wa to itab. 


CALL FUNCTION 'VRM SET VALUES' 


EXPORTING 
ID = 'KNA1-land1' 
VALUES = itab 
ENDMODULE. 


MODULE VALIADATE KUNNR 9001 INPUT. 
IF SY-UCOMM = 'CRT'. 
select kunnr into v kunnr from knal up to 1 rows where kunnr = 


knal-kunnr. 
endselect. 
IF SY-SUBRC = 0. 
MESSAGE "ALREADY EXIST' TYPE 'E'. 
ENDIF. 
ENDIF. 
ENDMODULE. 


MODULE cancel button code INPUT. 
data v answer(1) type c. 
if sy-ucomm = 'CANCEL'. 
if sy-dynnr = '9001'. 
leave program. 
else. 
CALL FUNCTION 'POPUP TO CONFIRM' 
EXPORTING 


TEXT QUESTION ‘Do You really want to cancel' 


TEXT BUTTON 1 = 'Yes' 

ICON BUTTON 1 = ICON OKAY' 
TEXT BUTTON 2 = 'No' 
DISPLAY CANCEL BUTTON = '' 
IMPORTING 

ANSWER = v_answer 


IF v_answer = '1'. 
" leave to screen 9001. 
leave program. 


ENDIF. 
endif. 
endif. 
ENDMODULE. 


PROCESS BEFORE OUTPUT. 


MODULE STATUS 9001. 
module set list 9001. 


PROCESS AFTER INPUT. 
chain. 
FIELD kna1-kunnr module VALIADATE KUNNR 9001. 


FIELD knal-LAND1 module VALIADATE_LAND1 9001. 
ENDCHAIN. 


MODULE USER COMMAND 9001. 
module cancel button code AT EXIT-COMMAND. 


PROCESS BEFORE OUTPUT. 

CALL SUBSCREEN : 

SA1 INCLUDING SY-CPROG '9003', 
SA2 INCLUDING SY-CPROG '9004', 
SA3 INCLUDING SY-CPROG '9005'. 
MODULE STATUS 9001. 

PROCESS AFTER INPUT. 

CALL SUBSCREEN : SA1,SA2,SA3. 


MODULE USER COMMAND 9002. 
module cancel button codE AT EXIT-COMMAND. 


Note :- for at exit-command go to zstatus and double click on 
cancel code and choose 'E' for exit command. 


[Z User Interface System Help 


e | 


Edit Goto ^  Ultilities(M) 


„ча еве вик апаа Еа ов 


Extras Environment 


Maintain Status ZSTATUS of interface ZDEMO CUSTOMER VALIDATIQ v ga HHE B] 14 
€= %*% 


User Interface zl 


Menu Bar [es] 


l&rwwERepstoy —  —  — — | 
Е перозіоувгомвег | 
(graggowe Cid 


[1 | 
Application Toolbar Ej [Hi 
iH 


Transpo organizer —  — — Function Keys 
BrestRepository art Too ba 


SAVE 


| Program “| [v] 


[Емо CUSTOMER. VALIDATION = | &e | 
Ја [E JS (ва 


[= Function Attributes 


— сон T 
> ll Dictionary Siructures Funcional Type [E] Exit Command 
> Types Switch 
, Fields 
> Г] PBO Modules Static Function Texts 
> Г] PAI Modules Function Text Cancel 
vY 0 Screens : Icon Name ICON_CANCEL 
* 9001 initial š 
- 8002 Tabs q | leon Text 
+ 9003 custon Info. Text 
* 9004 credit ( Fastpath m 
+ 9005 custon 
> [J GUI Status 
~ Cj Transactions 
* ZCUSTOM custon 
| ë - 
‹» | 


(© Function T: 


(2 6 Entries found 


£o: Be SSO YOR BL EL eVrunctoncode [Function ty, Shorttext 


System Function 

Calla Transaction 

Normal Application Function 
Local GUI Functions 
Internal Use 


6 Entries found 


зга |[ 49 | Ë sapmmc - [Consol... | RE Mantan Status zs... | W] Document2- mer... | wl] Documents - Mer... |0 Function Type C... 


